From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 Apr 1994 20:19:41 +0000 (+0000)
Subject: (mouse-extend): Handle case where posn-window is a frame.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92039
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=aa718a1fab3ab7e9b658a19179980d13a48e2cd9;p=emacs.git

(mouse-extend): Handle case where posn-window is a frame.
---

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index f079c62f978..861a5ed1759 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -310,7 +310,10 @@ This should be bound to a down-mouse event."
 		 ;; Ignore any movement outside the frame
 		 ((eq (car-safe event) 'switch-frame) nil)
 		 ((and (posn-window end)
-		       (not (eq (window-frame (posn-window end))
+		       (not (eq (let ((posn-w (posn-window end)))
+				  (if (windowp posn-w)
+				      (window-frame posn-w)
+				    posn-w))
 				(window-frame orig-window)))) nil)
 		     
 		 ;; Different window, same frame